home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs37.d81 / dialhdtm.seq < prev    next >
Text File  |  2009-10-10  |  1KB  |  17 lines
  1. ╘HE FOLLOWING LINES CAN BE ADDED TO THE BASIC LOADED PROGRAM CALLED ─╔┴╠╧╟╒┼
  2. WHICH COMES WITH THE ─╔┴╠╧╟╒┼ 128 TELECOMMUNICATIONS PROGRAM. ╘HIS CODE WILL
  3. ENABLE THE PROGRAM TO SET ITS CLOCK DIRECTLY FROM THE REAL-TIME CLOCK IN THE
  4. ├═─ ╚─. ┘OU MAY NEED TO CHANGE THE LINE NUMBERS SLIGHTLY, DEPENDING ON WHICH
  5. VERSION OF ─╔┴╠╧╟╒┼ 128 YOU HAVE, BUT SEARCH FOR A LINE SIMILAR TO THE FIRST
  6. LINE GIVEN BELOW. ╬OTE THAT THE LINE SHOULD BE EDITED TO READ EXACTLY AS THE
  7. THE LINE SHOWN HERE.
  8.  
  9. 440 POKE SA+5,0:REM DISABLE TOD CLEARING
  10. 450 OPEN15,U,15:PRINT#15,"T-RB":REM COMMAND CMD HD TO GIVE TIME IN BCD FORMAT
  11. 451 FORI=0TO3:GET#15,A$:NEXT:REM DISCARD WEEK/YEAR/MONTH/DAY
  12. 452 FORI=0TO3:GET#15,A$(I):NEXT:GET#15,A$:CLOSE15:REM GET TIME IN BCD FORMAT
  13. 453 IF(ASC(A$(0))AND18)-18=0THENA$(3)=CHR$(1-SGN(ASC(A$(3)))):REM FIX TOD BUG
  14. 454 A$(0)=CHR$((SGN(ASC(A$(3)))*128)ORASC(A$(0))):REM SET AM/PM
  15. 455 FORI=0TO2:POKEDEC("DD0B")-I,ASC(A$(I)):NEXT:REM STORE TIME IN TOD REGISTERS
  16. 456 POKEDEC("DD08"),0:REM START CLOCK
  17.